home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / product.arc / MACRO55.LSP < prev    next >
Text File  |  1986-09-22  |  1KB  |  40 lines
  1. (Defun C:Flange ()
  2.        (Setvar "Cmdecho" 0)
  3.        (Setq OR 0)
  4.        (Setq IR 0)
  5.        (Setq BC 0)
  6.        (Setq P1 (Getpoint "\nEnter center of flange: "))
  7.        (Setq OR (Getdist P1 "\nOutside radius: "))
  8.        (Command "Circle" P1 OR)
  9.        (Setq IR (Getdist P1 "\nInside radius: "))
  10.        (While (> IR OR)
  11.               (Prompt "\nInside radius larger than outside: ")
  12.               (Setq IR (Getdist P1 "\nInside radius: "))
  13.        )
  14.        (Command "Circle" P1 IR)
  15.        (Setq BAD 1)
  16.        (While BAD
  17.               (Setq A nil)
  18.               (Setq B nil)
  19.               (Setq BC (Getdist P1 "Bolt circle radius: "))
  20.               (If (> BC OR) 
  21.                   (Prompt "\nBolt circle larger than O.D.: ")
  22.                   (Setq A T)
  23.               )
  24.               (If (< BC IR) 
  25.                   (Prompt "\nBolt circle smaller than I.D.: ")
  26.                   (Setq B T)
  27.               )
  28.               (If (and A B)
  29.                   (Setq BAD nil)
  30.               )
  31.        )
  32.        (Command "Circle" P1 BC)
  33.        (Setq SH (Getreal "Bolt hole diameter: "))
  34.        (Setq NHI (Getint "Number of bolt holes: "))
  35.        (Setq NH (Float NHI))
  36.        (Setq SA (Getangle P1 "Starting angle of first hole: "))
  37.        (Command "Circle" (Polar P1 SA BC) "D" SH)
  38.        (Command "Array" "L" "" "C" P1 (/ 360.0 NH) NHI "")
  39. )
  40.